Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir26/epi601_2.zip/FILES07.EXE/PERSON.CHK

Text File | 1994-08-22 | 679b | 46 lines

BEFORE FILE
  DEFINE varNAME _________________________________ GLOBAL
  DEFINE varAGE  ###                               GLOBAL
  DEFINE varSEX  _                                 GLOBAL
  DEFINE varILL  _                                 GLOBAL
  HELP PERSON.HLP 1 1 1 CONTEXT
*  HELP HOUSE.HLP 7 1 1
END

BEFORE RECORD
  ADDRESS  = varADDRESS
  CITY     = varCITY
  STATE    = varSTATE
END

PERSONID
  KEY UNIQUE 1
END

HOUSEID
  KEY 2
END

ILL
  AFTER ENTRY
    varNAME = NAME
    varAGE  = AGE
    varSEX  = SEX
    varILL  = ILL
    RELATE PERSONID VISIT
  END
END

ADDRESS
  NOENTER
END

CITY
  NOENTER
END

STATE
  NOENTER
END